home *** CD-ROM | disk | FTP | other *** search
/ Disc Station 13 / Disc Station Vol 13.iso / drivers / canopus / pcine_95.lzh / SETUP.MS_ / SETUP.MS
Encoding:
Text File  |  1996-07-12  |  14.2 KB  |  470 lines
  1. '**************************************************************************
  2. '*    -- setup.mst --
  3. '*
  4. '*    Power Cinema 95 setup script
  5. '*
  6. '*    Copyright (C) 1995,96 CANOPUS Co., Ltd. All rights reserved.
  7. '**************************************************************************
  8.  
  9. '$INCLUDE 'setupapi.inc'
  10. '$INCLUDE 'msdetect.inc' 
  11.  
  12. ''Dialog ID's
  13. CONST    WELCOME            = 100
  14. CONST    WELCOMEUS        = 101
  15. CONST    ASKQUIT            = 200
  16. CONST    ASKQUITUS        = 201
  17. CONST    OPTIONS            = 500
  18. CONST    OPTIONSUS        = 501
  19. CONST    DESTPATHW95        = 1001
  20. CONST    DESTPATHUSW95    = 1003
  21. CONST     EXITSUCCESSW95    = 1101
  22. CONST     EXITSUCCESSUSW95= 1103
  23. CONST    EXITQUIT        = 1200
  24. CONST    EXITQUITUS        = 1201
  25. CONST    EXITFAILURE        = 1300
  26. CONST    EXITFAILUREUS    = 1301
  27. CONST    EXITCHECK        = 1400
  28. CONST    EXITCHECKUS        = 1401
  29. CONST    DESTINSTALL        = 1500
  30. CONST    DESTINSTALLUS    = 1501
  31. CONST     BADPATHW95        = 2001
  32. CONST     BADPATHUSW95    = 2003
  33. CONST    POWERERROR        = 2100
  34. CONST    POWERERRORUS    = 2101
  35. CONST     DISKERROR        = 2200
  36. CONST     DISKERRORUS        = 2201
  37.  
  38. ''Default Setting
  39. CONST    LOGO = 1
  40. CONST    SHOWMAX = 3
  41. CONST    TRUE = 1
  42. CONST    FALSE = 0
  43.  
  44. '' Users Area
  45. GLOBAL    DEST$                '' Default Dir
  46. GLOBAL    WINDRIVE$            '' Windows Dir
  47. GLOBAL    GROUP$                '' Group Name
  48. GLOBAL    CUIDLL$                '' User DLL File Name
  49. GLOBAL    CHECKSTATES$        '' Check Box Data
  50. GLOBAL    JPMODE AS INTEGER    '' Japanese / English Mode
  51. GLOBAL    WINMODE AS INTEGER    '' Windows Version
  52.  
  53. ''CustInst list
  54. CONST     TOTALKBOX = 3
  55. CONST     CHECKBOX1 = 1
  56. CONST     CHECKBOX2 = 2
  57. CONST     CHECKBOX3 = 3
  58.  
  59. ''CustInst list symbol names
  60.  
  61. DECLARE SUB         Install
  62. DECLARE FUNCTION    MakePath (szDir$, szFile$) AS STRING
  63. DECLARE    SUB         IniSetAndBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  64. DECLARE FUNCTION    CheckPowerWindow LIB "mscuistf.dll" () AS INTEGER
  65. DECLARE FUNCTION    GetWindowsVer LIB "mscuistf.dll" () AS INTEGER
  66. DECLARE FUNCTION    ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  67. DECLARE FUNCTION    GetMetrics LIB "mscuistf.dll" () AS INTEGER
  68.  
  69.  
  70. '
  71. ' #[ INIT ]
  72. '
  73. INIT:
  74.     CUIDLL$ = "mscuistf.dll"        ''Custom user interface dll
  75.  
  76.     WINMODE = GetWindowsVer()
  77.     JPMODE = GetMetrics()
  78.  
  79.     SetWindowSize SHOWMAX
  80.     SetBitmap CUIDLL$, LOGO
  81.     SetTitle "Power Cinema 95 Setup"
  82.  
  83.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  84.     IF szInf$ = "" THEN
  85.         szInf$ = GetSymbolValue("STF_CWDDIR") + "setup.inf"
  86.     END IF
  87.     ReadInfFile szInf$
  88.  
  89.     IF WINMODE = FALSE THEN
  90.         IF JPMODE <> 0 THEN
  91.             i% = DoMsgBox("Windows 95 ÉΩùpé╠âAâvâèâPü[âVâçâôé╠é╜é▀üAé▒é╠è┬ï½é╔é═âCâôâXâgü[âïé┼é½é▄é╣é±üB", "Power Cinema 95 Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  92.         ELSE
  93.             i% = DoMsgBox("Please install Windows 95 before installing Power Cinema 95.", "Power Cinema 95 Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  94.         END IF
  95.         END
  96.     END IF
  97.  
  98.     i% = CheckPowerWindow()
  99.     IF i% = FALSE THEN 
  100.         IF JPMODE <> 0 THEN
  101.             dlg% = POWERERROR
  102.         ELSE
  103.             dlg% = POWERERRORUS
  104.         END IF
  105.         sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  106.         END
  107.     END IF
  108.  
  109.     DEST$ = ""
  110.     WINDRIVE$ = GetWindowsDir()
  111.     DEST$ = MID$(WINDRIVE$, 1, 1) + ":\CINEMA95"
  112.  
  113. WELCOME:
  114.     IF JPMODE <> 0 THEN
  115.         dlg% = WELCOME
  116.     ELSE
  117.         dlg% = WELCOMEUS
  118.     END IF
  119.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  120.     IF sz$ = "CONTINUE" THEN
  121.         UIPop 1
  122.     ELSE
  123.         GOSUB ASKQUITJMP
  124.         GOTO WELCOME
  125.     END IF
  126.  
  127.  
  128.     ''CustInst list symbols
  129.     CHECKSTATES$ = "CheckItemsIn"
  130.     IF JPMODE <> 0 THEN
  131.         s% = 1
  132.     ELSE
  133.         AddListItem CHECKSTATES$, "OFF"
  134.         s% = 2
  135.     END IF
  136.     FOR i% = s% TO TOTALKBOX STEP 1
  137.         AddListItem CHECKSTATES$, "ON"
  138.     NEXT i%
  139.  
  140.  
  141. CHECKCUT:
  142.     IF JPMODE <> 0 THEN
  143.         dlg% = OPTIONS
  144.     ELSE
  145.         dlg% = OPTIONSUS
  146.     END IF
  147.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheckDlgProc", 0, "")
  148.     IF sz$ = "CONTINUE" THEN
  149.         push% = 0
  150.         CHECKSTATES$ = "CheckItemsOut"
  151.         FOR i% = 1 TO TOTALKBOX STEP 1
  152.             IF GetListItem(CHECKSTATES$, i%) = "ON" THEN
  153.                 push% = 1
  154.             END IF
  155.         NEXT i%
  156.         IF push% = 0 THEN
  157.             IF JPMODE <> 0 THEN
  158.                 dlg% = EXITCHECK
  159.             ELSE
  160.                 dlg% = EXITCHECKUS
  161.             END IF
  162.             sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  163.             UIPop 1
  164.             GOTO CHECKCUT
  165.         END IF
  166.         UIPop 1
  167.         GOTO GETPATH
  168.     ELSE
  169.         GOSUB ASKQUITJMP
  170.         GOTO CHECKCUT
  171.     END IF
  172.  
  173. GETPATH:
  174.     SetSymbolValue "EditTextIn", DEST$
  175.     SetSymbolValue "EditFocus", "END"
  176. GETPATHL1:
  177.     IF JPMODE <> 0 THEN
  178.         dlg% = DESTPATHW95
  179.     ELSE
  180.         dlg% = DESTPATHUSW95
  181.     END IF
  182.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FEditDlgProc", 0, "")
  183.     DEST$ = GetSymbolValue("EditTextOut")
  184.     IF sz$ = "CONTINUE" THEN
  185.         IF IsDirWritable(DEST$) = 0 THEN
  186.             GOSUB INPUTPATH
  187.             GOTO GETPATHL1
  188.         END IF
  189.         UIPop 1
  190.     ELSEIF sz$ = "REACTIVATE" THEN
  191.         GOTO GETPATHL1
  192.     ELSEIF sz$ = "BACK" THEN
  193.         UIPop 1
  194.         GOTO CHECKCUT
  195.     ELSE
  196.         GOSUB ASKQUITJMP
  197.         GOTO GETPATHL1
  198.     END IF
  199.  
  200. INST:
  201.     IF JPMODE <> 0 THEN
  202.         dlg% = DESTINSTALL
  203.     ELSE
  204.         dlg% = DESTINSTALLUS
  205.     END IF
  206.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  207.     IF sz$ = "CONTINUE" THEN
  208.         UIPop 1
  209.     ELSEIF sz$ = "BACK" THEN
  210.         UIPop 1
  211.         GOTO GETPATH
  212.     ELSE
  213.         GOSUB ASKQUITJMP
  214.         GOTO INST
  215.     END IF
  216.  
  217.     Install
  218.  
  219. QUIT:
  220.     ON ERROR GOTO ERRQUIT
  221.  
  222.     IF ERR = 0 THEN
  223.         IF JPMODE <> 0 THEN
  224.             dlg% = EXITSUCCESSW95
  225.         ELSE
  226.             dlg% = EXITSUCCESSUSW95
  227.         END IF
  228.     ELSEIF ERR = STFQUIT THEN
  229.         IF JPMODE <> 0 THEN
  230.             dlg% = EXITQUIT
  231.         ELSE
  232.             dlg% = EXITQUITUS
  233.         END IF
  234.     ELSE
  235.         IF JPMODE <> 0 THEN
  236.             dlg% = EXITFAILURE
  237.         ELSE
  238.             dlg% = EXITFAILUREUS
  239.         END IF
  240.     END IF
  241. QUITL1:
  242.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  243.     IF sz$ = "CONTINUE" THEN
  244.         UIPop 1
  245.         END
  246.     END IF
  247.  
  248. RESET:
  249.     new% = ExitExecRestart()
  250.     Exe$ = WINDRIVE$ + "\_msrstrt.exe"
  251.     Empty$ = ""
  252. RESTART1:
  253.     IF new% = 0 THEN
  254.         IF JPMODE <> 0 THEN
  255.             i% = DoMsgBox("Windows é≡ì─ïNô«é┼é½é▄é╣é±üBæ╝é╠âAâvâèâPü[âVâçâôüiMS-DOS╠▀█▌╠▀─ôÖüjé≡ÅIù╣é╡é─é¡é╛é│éóüB", "âZâbâgâAâbâv âGâëü[", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  256.         ELSE
  257.             i% = DoMsgBox("The Setup program cannot restart Windows. Please terminate all other applications and MS-DOS Prompt.", "Setup Error", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  258.         END IF
  259.     END IF
  260.     I% = ExitWindowsExec (Exe$, Empty$)
  261.     IF I% = 0 THEN
  262.         GOTO RESET
  263.     ELSE
  264.         END
  265.     END IF
  266.     END
  267.  
  268. ERRQUIT:
  269.     IF JPMODE <> 0 THEN
  270.         i% = DoMsgBox("âZâbâgâAâbâvâfâBâXâNé╠ôαùeé¬ë≤éΩé─éóé▄é╖üBâeâNâjâJâïâTâ|ü[âgé▄é┼ÿAùìé╡é─é¡é╛é│éóüB", "âZâbâgâAâbâv âGâëü[", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  271.     ELSE
  272.         i% = DoMsgBox("This Setup disk is destroyed. Please contact our Technical Support.", "Setup Error", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  273.     END IF
  274.     END
  275.  
  276. INPUTPATH:
  277.     IF JPMODE <> 0 THEN
  278.         dlg% = BADPATHW95
  279.     ELSE
  280.         dlg% = BADPATHUSW95
  281.     END IF
  282.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  283.     IF sz$ = "REACTIVATE" THEN
  284.         GOTO INPUTPATH
  285.     END IF
  286.     UIPop 1
  287.     RETURN
  288.  
  289. ASKQUITJMP:
  290.     IF JPMODE <> 0 THEN
  291.         dlg% = ASKQUIT
  292.     ELSE
  293.         dlg% = ASKQUITUS
  294.     END IF
  295.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FQuitDlgProc", 0, "")
  296.     IF sz$ = "EXIT" THEN
  297.         UIPopAll
  298.         ERROR STFQUIT
  299.     ELSEIF sz$ = "REACTIVATE" THEN
  300.         GOTO ASKQUITJMP
  301.     ELSE
  302.         UIPop 1
  303.     END IF
  304.     RETURN
  305.  
  306. '*****************************************************
  307. '** ôαùe:
  308. '**            âCâôâXâgü[âïé╠ì∞ï╞
  309. '** ê°é½Éö:
  310. '**            é╚é╡
  311. '** û▀éΦÆl:
  312. '**            é╚é╡
  313. '*****************************************************
  314. SUB Install STATIC
  315.  
  316.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  317.     WinSysDir$ = GetWindowsSysDir()
  318.     CreateDir DEST$, cmoNone
  319.     CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "DIR", DEST$, cmoOverwrite
  320.  
  321. ''âtâ@âCâïâRâsü[âèâXâgé╠ôoÿ^
  322.     CHECKSTATES$ = "CheckItemsOut"
  323.     IF GetListItem(CHECKSTATES$, 1) = "ON" THEN
  324.         AddSectionFilesToCopyList "OPTION1", SrcDir$, DEST$
  325.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE0", MakePath(DEST$,"README.TXT"), cmoOverwrite
  326.     END IF
  327.  
  328.     IF GetListItem(CHECKSTATES$, 2) = "ON" THEN
  329.         AddSectionFilesToCopyList "OPTSYS2", SrcDir$, WinSysDir$
  330.         AddSectionFilesToCopyList "OPTION2", SrcDir$, DEST$
  331.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE1", MakePath(DEST$,"PWCINE95.EXE"), cmoOverwrite
  332.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE2", MakePath(DEST$,"PWCINE95.DOC"), cmoOverwrite
  333.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE3", MakePath(DEST$,"VCDMCI95.DLL"), cmoOverwrite
  334.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE4", MakePath(DEST$,"CINEMA95.DLL"), cmoOverwrite
  335.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE6", MakePath(WinSysDir$,"PWJPEG.DRV"), cmoOverwrite
  336.     END IF
  337.  
  338.     IF GetListItem(CHECKSTATES$, 3) = "ON" THEN
  339.         AddSectionFilesToCopyList "OPTSYS3", SrcDir$, WinSysDir$
  340.         AddSectionFilesToCopyList "OPTWIN3", SrcDir$, WINDRIVE$
  341.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE7", MakePath(WINDRIVE$,"SOFTPEG.INI"), cmoOverwrite
  342.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE8", MakePath(WinSysDir$,"SOFTPEGC.DLL"), cmoOverwrite
  343.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE9", MakePath(WinSysDir$,"CCMPEGW.DLL"), cmoOverwrite
  344.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE10", MakePath(WinSysDir$,"CCMPEG.DLL"), cmoOverwrite
  345.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE11", MakePath(WinSysDir$,"SOFTPEG.DRV"), cmoOverwrite
  346.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE12", MakePath(WinSysDir$,"SOFTPEG3.DLL"), cmoOverwrite
  347.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE13", MakePath(WinSysDir$,"SOFTPEGC.DLL"), cmoOverwrite
  348.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE14", MakePath(WinSysDir$,"CD16.DRV"), cmoOverwrite
  349.     END IF
  350.  
  351.     AddSectionFilesToCopyList "OPTIONA", SrcDir$, DEST$
  352.     CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "FILE15", MakePath(DEST$,"PWCIUIST.EXE"), cmoOverwrite
  353.  
  354. ''âtâ@âCâïâRâsü[
  355.     SizeReq& = GetCopyListCost ("","", "")
  356.     IF SizeReq& <> 0 THEN
  357.         sz$ = UIStartDlg(CUIDLL$, DISKERROR, "FInfoDlgProc", 0, "")
  358.         END
  359.     END IF
  360.     SetRestartDir WINDRIVE$
  361.     CopyFilesInCopyList
  362.  
  363. ''éhéméhâtâ@âCâïé╠ôoÿ^
  364.     IF GetListItem(CHECKSTATES$, 2) = "ON" THEN
  365.         RemoveInisection WINDRIVE$ + "CANOPUS.INI", "Power Cinema 95" , cmoVital
  366.         IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "DRIVERS", "VIDC.MJPG", "PWJPEG.DRV", "SYS"
  367.         CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "PWJPEG.DRV", "CANOPUS Power Window Motion JPEG Decompressor", cmoOverwrite
  368.     END IF
  369.  
  370.     IF GetListItem(CHECKSTATES$, 3) = "ON" THEN
  371.         CreateIniKeyValue WINDRIVE$ + "Win.ini", "MCI EXTENSIONS", "MPG", "MPEGVIDEO", cmoOverwrite
  372.         CreateIniKeyValue WINDRIVE$ + "Win.ini", "MCI EXTENSIONS", "DAT", "MPEGVIDEO", cmoOverwrite
  373.         CreateIniKeyValue WINDRIVE$ + "Win.ini", "MCI EXTENSIONS", "MPA", "MPEGVIDEO", cmoOverwrite
  374.         CreateIniKeyValue WINDRIVE$ + "Win.ini", "MCI EXTENSIONS", "MPV", "MPEGVIDEO", cmoOverwrite
  375. '        CreateIniKeyValue WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEOCD", "SOFTPEG.DRV CDI", cmoOverwrite
  376.         IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEOCD", "SOFTPEG.DRV CDI", "SYS"
  377. '        CreateIniKeyValue WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEO", "SOFTPEG.DRV", cmoOverwrite
  378.         IniSetAndBakup WINDRIVE$ + "SYSTEM.INI", "MCI", "MPEGVIDEO", "SOFTPEG.DRV", "SYS"
  379.         CreateIniKeyValue WINDRIVE$ + "CONTROL.INI", "DRIVERS.DESC", "SOFTPEG.DRV", "[MCI] CompCore SoftPEG (TM) MPEG Driver", cmoOverwrite
  380.  
  381.         RemoveIniKey WINDRIVE$ + "SYSTEM.INI", "MCI", "CCMPEG", cmoNone
  382.         RemoveIniKey WINDRIVE$ + "SYSTEM.INI", "MCI", "CCMPEGCDI", cmoNone
  383.         RemoveIniKey WINDRIVE$ + "MPLAYER.INI", "DEVICES", "CCMPEG", cmoNone
  384.         RemoveIniKey WINDRIVE$ + "MPLAYER.INI", "DEVICES", "CCMPEGCDI", cmoNone
  385.         RemoveIniKey WINDRIVE$ + "MPLAYER.INI", "OPTIONS", "CCMPEG", cmoNone
  386.         RemoveIniKey WINDRIVE$ + "MPLAYER.INI", "OPTIONS", "CCMPEGCDI", cmoNone
  387.     END IF
  388.  
  389. ''âOâïü[âvôoÿ^
  390.     GROUP$ = "PowerCinema 95"
  391.     CreateProgmanGroup GROUP$, "", cmoNone
  392.     ShowProgmanGroup GROUP$,  1, cmoNone
  393.     CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "GROUP", GROUP$, cmoOverwrite
  394.  
  395.     IF GetListItem(CHECKSTATES$, 1) = "ON" THEN
  396.         IF JPMODE <> 0 THEN
  397.             szIcon$ = "╪╪░╜╔░─"
  398.         ELSE
  399.             szIcon$ = "Release Note"
  400.         END IF
  401.         CreateProgmanItem GROUP$, szIcon$ , "NOTEPAD.EXE "+MakePath(DEST$,"README.TXT") , "", cmoOverwrite
  402.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "ICON0", szIcon$, cmoOverwrite
  403.     END IF
  404.  
  405.     IF GetListItem(CHECKSTATES$, 2) = "ON" THEN
  406.         CreateProgmanItem GROUP$, "PowerCinema 95" , MakePath(DEST$,"PWCINE95.EXE") , "", cmoOverwrite
  407.         CreateProgmanItem GROUP$, "PowerCinema 95 Manual"    , MakePath(DEST$,"PWCINE95.DOC")      , "", cmoOverwrite
  408.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "ICON1", "PowerCinema 95", cmoOverwrite
  409.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "ICON2", "PowerCinema 95 Manual", cmoOverwrite
  410.     END IF
  411.  
  412.     IF JPMODE <> 0 THEN
  413.         szIcon$ = "▒▌▓▌╜─░╫"
  414.     ELSE
  415.         szIcon$ = "Uninstaller"
  416.     END IF
  417.     CreateProgmanItem GROUP$, szIcon$ , MakePath(DEST$,"PWCIUIST.EXE"), "", cmoOverwrite
  418.     CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", "ICON3", szIcon$, cmoOverwrite
  419.  
  420. END SUB
  421.  
  422.  
  423. '*****************************************************
  424. '** ôαùe:
  425. '**         âtâïâpâXé╠ì\æóæ╠é╔ò╧è╖
  426. '** ê°é½Éö:
  427. '**         szDir$  - âtâïâpâXâfâBâîâNâgâèû╝
  428. '**         szFile$ - âtâ@âCâïû╝é▄é╜é═âfâBâîâNâgâèû╝
  429. '** û▀éΦÆl:    
  430. '**        âpâXû╝
  431. '*****************************************************
  432. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  433.     IF szDir$ = "" THEN
  434.         MakePath = szFile$
  435.     ELSEIF szFile$ = "" THEN
  436.         MakePath = szDir$
  437.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  438.         MakePath = szDir$ + szFile$
  439.     ELSE
  440.         MakePath = szDir$ + "\" + szFile$
  441.     END IF
  442. END FUNCTION
  443.  
  444.  
  445. '***************************************************************
  446. '** ôαùe:
  447. '**         Iniôαùeò█è╟
  448. '**         ôoÿ^éáéΩé╬üAë╜éαé╡é╚éóüB
  449. '** ê°é½Éö:
  450. '**         szFile$ - âtâïâpâXâtâ@âCâï
  451. '**         szSec$  - âZâNâVâçâô
  452. '**         szKey$  - âLü[
  453. '**         szVal$  - Æl
  454. '**         szSecOp$- âfâBâîâNâgâè
  455. '** û▀éΦÆl:    
  456. '**        âpâXû╝
  457. '***************************************************************
  458. SUB IniSetAndBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$) STATIC
  459.     szLoad$ = ""
  460.     szLoadBak$ = ""
  461.  
  462.     szLoadBak$ = GetIniKeyString(szFile$, szSec$, szKey$)
  463.  
  464.     szLoad$ = GetIniKeyString(WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", szSecOp$ + szKey$)
  465.     IF (szLoad$ = "") OR (szLoad$ <> szLoadBak$) OR ( szLoadBak$ <> szVal$) THEN 
  466.         CreateIniKeyValue WINDRIVE$ + "UNPWCINE.INI", "CinemaUnInstall", szSecOp$ + szKey$, szLoadBak$, cmoOverwrite
  467.     END IF
  468.     CreateIniKeyValue szFile$, szSec$, szKey$, szVal$, cmoOverwrite
  469. END SUB
  470.